perm filename MAC748.FAI[CMS,LCS]4 blob sn#388570 filedate 1978-10-17 generic text, type T, neo UTF8
00100	; FAIL MACROS FOR 8748
00200	
00300		LOC 274
00400		PHASE	0
00500	
00600		DEFINE ADR (R)		< 150 ∨ (R ∧ 7) >
00700		DEFINE ADM (R)		< 140 ∨ (R ∧ 1) >
00800		DEFINE ADI (E)		< 3 ↔ E∧377 >
00900	
01000		DEFINE ADCR (R)		< 170 ∨ (R ∧ 7) >
01100		DEFINE ADCM (R)		< 160 ∨ (R ∧ 1) >
01200		DEFINE ADCI (E)		< 23 ↔ E∧377 >
01300		
01400		DEFINE ANR (R)		< 130 ∨ (R ∧ 7) >
01500		DEFINE ANM (R)		< 120 ∨ (R ∧ 1) >
01600		DEFINE ANI (E)		< 123 ↔ E∧377 >
01700	
01800		DEFINE ANBI (E)		< 230 ↔ E∧377 >
01900		DEFINE ANPI (P,E)	< 230 ∨ (P ∧ 3) ↔ E∧377 >
02000		DEFINE ANPA (P)		< 234 ∨ (P ∧ 3) >
02100	
02200		DEFINE CALL (E)		< 24 ∨ (E⊗-3 ∧ 340) ↔ E∧377 >
02300	
02400		DEFINE CLRA		< 47 >
02500		DEFINE CLRC		< 227 >
02600		DEFINE CLRF1		< 245 >
02700		DEFINE CLRF0		< 205 >
02800		DEFINE CPLA		< 67 >
02900		DEFINE CPLC		< 247 >
03000		DEFINE CPLF0		< 225 >
03100		DEFINE CPLF1		< 265 >
03200		DEFINE DAA		< 127 >
03300	
03400		DEFINE DECA		< 7 >
03500		DEFINE DECR (R)		< 310 ∨ (R ∧ 7) >
03600	
03700		DEFINE DISXI		< 25 >
03800		DEFINE DISTI		< 65 >
03900	
04000		DEFINE DJNZ (R,E)	< 350 ∨ (R ∧ 7) ↔ E∧377 >
04100	
04200		DEFINE ENXI		< 5 >
04300		DEFINE ENTI		< 45 >
04400		DEFINE ENCLK		< 165 >
04500	
04600		DEFINE INP (P)		< 10 ∨ (P ∧ 3) >
04700	
04800		DEFINE INCA		< 27 >
04900		DEFINE INCR (R)		< 30 ∨ (R ∧ 7) >
05000		DEFINE INCM (R)		< 20 ∨ (R ∧ 1) >
05100	
05200		DEFINE INB		< 10 >
     

00100		DEFINE JBS (B,E)	< 22 ∨ (B⊗5) ∧377 ↔ E∧377 >
00200		DEFINE JCS (E)		< 366 ↔ E∧377 >
00300		DEFINE JF0S (E)		< 266 ↔ E∧377 >
00400		DEFINE JF1S (E)		< 166 ↔ E∧377 >
00500	
00600		DEFINE JMP (E)		< 4 ∨ (E⊗-3 ∧ 340) ↔ E∧377 >
00700		DEFINE JMPIN		< 263 >
00800		DEFINE JCC (E)		< 346 ↔ E∧377 >
00900		DEFINE JINT (E)		< 206 ↔ E∧377 >
01000		DEFINE JT0L (E)		< 46 ↔ E∧377 >
01100		DEFINE JT1L (E)		< 106 ↔ E∧377 >
01200	
01300		DEFINE JNZ (E)		< 226 ↔ E∧377 >
01400		DEFINE JTF (E)		< 26 ↔ E∧377 >
01500		DEFINE JT0H (E)		< 66 ↔ E∧377 >
01600		DEFINE JT1H (E)		< 126 ↔ E∧377 >
01700		DEFINE JZ (E)		< 306 ↔ E∧377 >
01800	
01900		DEFINE MOVI (E)		< 43 ↔ E∧377 >
02000		DEFINE MOVPA		< 307 >
02100		DEFINE MOVRA (R)	< 370 ∨ (R ∧ 7) >
02200		DEFINE MOVMA (R)	< 360 ∨ (R ∧ 1) >
02300		DEFINE MOVTA		< 102 >
02400	
02500		DEFINE MOVAP		< 327 >
02600		DEFINE MOVAR (R)	< 250 ∨ (R ∧ 7) >
02700		DEFINE MOVRI (R,E)	< 270 ∨ (R ∧ 7) ↔ E∧377 >
02800		DEFINE MOVAM (R)	< 240 ∨ (R ∧ 1) >
02900		DEFINE MOVMI (R,E)	< 260 ∨ (R ∧ 1) ↔ E∧377 >
03000	
03100		DEFINE MOVAT		< 142 >
03200		DEFINE MOVXA (P)	< 14 ∨ (P ∧ 3) >
03300		DEFINE MOVAX (P)	< 74 ∨ (P ∧ 3) >
03400		DEFINE MOVPD		< 243 >
03500		DEFINE MOVP3		< 343 >
03600	
03700		DEFINE MOVXMA (R)	< 200 ∨ (R ∧ 1) >
03800		DEFINE MOVAXM (R)	< 220 ∨ (R ∧ 1) >
03900		DEFINE NOP		< 0 >
04000	
04100		DEFINE ORR (R)		< 110 ∨ (R ∧ 7) >
04200		DEFINE ORM (R)		< 100 ∨ (R ∧ 1) >
04300		DEFINE ORI (E)		< 103 ↔ E∧377 >
04400		DEFINE ORBI (E)		< 210 ↔ E∧377 >
04500		DEFINE ORPI (P,E)	< 210 ∨ (P ∧ 3) ↔ E∧377 >
04600		DEFINE ORPA (P)		< 214 ∨ (P ∧ 3) >
     

00100		DEFINE OUTB		< 2 >
00200		DEFINE OUTP (P)		< 70 ∨ (P ∧ 3) >
00300		DEFINE RET		< 203 >
00400		DEFINE RETR		< 223 >
00500		DEFINE ROL		< 347 >
00600		DEFINE ROLC		< 367 >
00700		DEFINE ROR		< 167 >
00800		DEFINE RORC		< 147 >
00900	
01000		DEFINE SMB0		< 345 >
01100		DEFINE SMB1		< 365 >
01200		DEFINE SRB0		< 305 >
01300		DEFINE SRB1		< 325 >
01400	
01500		DEFINE STOPT		< 145 >
01600		DEFINE STRTC		< 105 >
01700		DEFINE STRTT		< 125 >
01800		DEFINE SWAP		< 107 >
01900	
02000		DEFINE XCHR (R)		< 50 ∨ (R ∧ 7) >
02100		DEFINE XCHM (R)		< 40 ∨ (R ∧ 1) >
02200		DEFINE XCH4B (R)	< 60 ∨ (R ∧ 1) >
02300	
02400		DEFINE XORR (R)		< 330 ∨ (R ∧ 7) >
02500		DEFINE XORM (R)		< 320 ∨ (R ∧ 1) >
02600		DEFINE XORI (E)		< 323 ↔ E∧377 >